home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / INTRO.DIR / 00029_Script_29 < prev    next >
Text File  |  1996-03-25  |  645b  |  28 lines
  1. on soundFadeTo chan, finalVol
  2.   put the volume of sound chan into startVol
  3.   if finalVol < startVol then
  4.     repeat with v = finalVol to startVol
  5.       set the volume of sound chan to startVol - (v-finalVol)
  6.       delay 1 
  7.     end repeat
  8.   else
  9.     repeat with v = startVol to finalVol
  10.       set the volume of sound chan to v
  11.     end repeat
  12.   end if
  13. end soundFadeTo
  14.  
  15. on skipIntro
  16.   if the frame < label("LoadPt2") then
  17.     go frame "LoadPt2"
  18.     waitVoice
  19.   else
  20.     sound stop 1
  21.     --sound stop 2
  22.     puppetTransition 0
  23.     updateStage
  24.     go frame "End"
  25.   end if
  26.   when mouseDown then nothing
  27.   goTour
  28. end skipIntro